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BASSFREE 1b-5ep -1984 75 AX-11 Bliss-32 V4.0-742 a 
| Bef 71382 90: 3g: 36 BASRTL.SR RC IBASFRE REE .B32;1 oo 
MODULE BASSFREE ( ' Basic FREE con t 
3 {DENT = '1-003' i File: BASF SPREE BS2 
BEGIN 


RRR EAERERERREEAERARRERERER EERE ERATE TRAE EERE AEE ERERAAEEREEE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


ie THIS fe scch IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH Le, | 


COOoOooooooo 


PUNO OONAUNE WN | OOONAUE WN (OOD NAUES WN (OOO NOULS WN OO OONAOUES Wh 


® 

® 

® 

® 

® 

® 

& 

. Ea 
i PROV R Al : 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
. ® 
i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE  * 
® 

® 

® 

® 

® 

* 

& 

* 


:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
it CORPORATION. 


iw DIGITAL ASSUMES NO RESPONSI 7 . Y FOR hig te OR RELIABILITY OF ITS 


!# SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


VRE RRA RAAAAEEREREAREREAARERA AE REAEEEAAEAAEEEARAREEARAAEERAAREAKEREREEEE 
' 
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! FACILITY: 
Basic support Library - user callable 


i ABSTRACT: 

' This module is the UP] level of the Basic FREE construct. 

inte oeeyie ae setup the I/0 data base for the LUN and go directly to 
e evel. 


4 
1 
' 
t 
' 
t 
! 
u 
' 
' ENVIRONMENT: 

User access mode - AST reentrant. 
i 

' 

a 

i] 

' 

1 

‘ 

f 

i] 

! 


SOOOSOSSOSSSSSSSooooooooooooooooooooooeoosooo 


PRK BWANA NANNAIAIP POPPE PONUNPINIPDY 2 OOO Oe 


' AUTHOR: Donald G. Petersen, CREATION DATE: 28-Feb-79 
i MODIFIED BY: 


; DGP, 28-Feb-79 : y RSION 4 
! 1-001 - Phage’ ti DGP 28-Feb-7 

! 1-002 - oenee the name of the ee evel to FEE due to conflict with 
; IND relative. DGP 

! 1-003 - bee up ISBSA_USER_FP. “MBS Be JUL-1979 
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; § 03? es 

3 0 1 ! SWITCHES: 

; 88 888 

H 29 0089 i SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
 & 061 1! 

= p66 1 ' LINKAGES 

>; 664 065 1! 

; 65 064 1 

; 66 0065 1 REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 

i 67 bees 1 

; 668 495 1! 

H 69 oh 1 ! TABLE OF CONTENTS: 

3 70 497 1! 

a a 498 1 

H 7 499 1 FORWARD ROUTINE 

a 0500 1 BASSFREE : NOVALUE; ! UPI level Sequential FREE 
3; «676 0501 1 

+ v2 b206 1! 

3 76 0505 1 ! INCLUDE FILES: 

ome 4 0504 1! 

3; 60 lB 0505 1 Aaeor 

3 ie 3200 ' REQUIRE ‘RTLML:OTSISB'; ! ISB definitions 

3 a Bate : REQUIRE ‘RTLML:OTSLUB';: ' LUB definitions 

3 a7 pele : REQUIRE "RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 
. = Ogg 1 LIBRARY ‘RTLSTARLE'; ! Starlet system macros 

; 686 0913 1 

; 87 0914 1! 

: 88 0915 1 ! MACROS: 

; 8 Bais 1! 

PY 90 917 1! NONE 

a | 0918 1! 

é 92 0919 1 ! EQUATED SYMBOLS: 

|. oe 0920 1! 

3s | 64 0921 1! NONE 

3; 9 09 ; 1! 

3; 343 1! 

3 4 , : ! PSECT DECLARATIONS: 

3 99 0996 1 DECLARE_PSECTS (BAS); 

; 100 9 8 

: 101 0928 1 ! OWN STORAGE: 

$ 196 144 1! 

; 10 930 1! NONE 

3 104 931 1! 

; 105 9 § 1 ! EXTERNAL REFERENCES: 

-% 9 . 4 

Me 0934 1 

3; 108 935 1 EXTERNAL ROUTINE : 

; 109 9 § 1 BASS$STOP_IO : NOVALUE ! Signal fatal BASIC 1/0 error 
3 119 is HA ! BASSSREC_FEE : JSB_RECO NOVALUE, * level processing - RMS interface 
: 112 0939 1 BASS$$CB_PUSH : JSB_CB_PUSH NOVALUE, ' Load register CCB 


rd 
| 


rags bea on: 00:52:58 yayett BLis4=82 v4.0-742, Page 3 
BASSSCB_POP : JSB_CB_POP NOVALUE; ! Done with register CCB 


14 
} The following are the error codes used in this module. 


———— LITERAL 
BASSK_IO_CHANOT : UNSIGNED (8); ! 1/0 channel not open 
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3 123 949 1 GLOBAL ROUTINE BASSFREE ( ' Free sequential 

; 126 9 1 UNIT ! Logical unit number 

: 125 9 1 ) : NOVALUE = 

eS ° 9 ¢ 1 

>} 955 1 tee 

; : 8 B28 : } FUNCTIONAL DESCRIPTION: 

; 150 386 1! This routine will set up the 1/0 data base for this LUN if necessary 
3 135) 97 1! and then go directly to the REC level. When control is returned to 
<< ¢ 328 1! this routine, it pops the CCB off of the 1/0 systen. The actual inter= 
3 : 32 : face to RMS is done at the REC level. ALL loc ed records are unlocked. 
3 : 2 $81 : FORMAL PARAMETERS: 

.) 2a 965 1! UNIT. rlu.v Logical unit number 

; 138 964 1! 

3; 4139 965 1 ! IMPLICIT INPUTS: 

; 140 0966 1! 

: 141 0967 1! NONE 

3 16g 0968 1! 

; «14 0969 1 ! IMPLICIT OUTPUTS: 

3 144 0970 1! 

3: «145 0971 1! ISBSB_STTM_TYPE the statement type 

; 146 0972 1! 

; 147 09735 1 ! COMPLETION CODES: 

3; «6148 0974 1! 

3; (149 0975 1! NONE 

; 150 0976 1! 

3; 6151 0977 1°! SIDE EFFECTS: 

3 136 0978 1! 

3 15 0979 1! NONE 

3: 6154 0980 1! 

3s 6335 0981 1 !-- 

; 156 0982 1 

3 37 098 BEGIN 

; 158 0984 

3; 159 0985 BUILTIN 

: 160 $4 6 FP; 

: 161 7 

3 16¢ 0988 GLOBAL REGISTER 

3; 989 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3; 164 990 

3; «6165 0991 LOCAL 

3 166 94d FMP : REF BLOCK C, BYTE); 

; 16 99 

3; 168 0994 FMP = .FP; 

3 19° 995 '+ 

3; 170 a | ! Allocate the LUB/ISB/RAB for this unit if necessary. Store new CB (con- 
3 fA ra trol block) in OTSS$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 
3 178 $999 BASS$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); 

; 174 1000 ,, CB CISBSA_USER_FP] = FMP SFSC_SAVE_FP); 

; :¢ 

3 176 1 § ! If the channel is not open, give an error message. 

: 17 1 i FREE is not permitted on channel 0. 

: 178 1004 !< 

3; 179 1005 
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$ep-1984 Ax-11 a? $$-32 V4.0-742 

iSSeo-1984 00:52:58 yaRett OL fn4=52. 4.02242 
If ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP_IO (BASS$K_IO_CHANOT); 

14 

i Now that the data base is in place, store the statement type and go 

} oe to the REC level. 


a .fisese STIM_TYPE] = ISBSK_ST_TY_FEE; 
BASSSREC FEE OF 


' 

Now that the FREE has been done, pop the CCB off the 1/0 system. 
BASSSCB_POP (); 
END; 'End of BASSFREE 

E BASSFREE 

T \1=-003\ 

TRN BASSSSTOP_10, BASSSREC_FEE 

N BAS$$CB_POSH, GASSSCB Pop 
N BAS$K_I0_CHANOT 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


083¢ 00000 .ENTRY BASSFREE, Save R2,R3,R4,R5,R11 
53 5D D0 9000¢ MOVL FP, FMP 
50 08 CE 0000 MNEGL RO 
52 04 AC DO 00008 MOVL T, R2 
000000006 09 16 0000¢ JSB BASS§CB_ Pus 
FF4C CB 0c Ad 00 90018 MOVL 2(FMP) » UP 80(CCB) 
0B FC AB 34 9001 BLBS  -4(CCB), 1 
7E 00G 8F A QO01C MOVZBL ASSE fo a 1h -(SP) 
000000006 00 01 FB 00020 CALLS #1, BASS$STOP 
FF71 (CB 28 90 00027 1$ Move «#48 ares tcee 
000000006 00 16 0002¢ JSB BASS$SREC_FEE 
000000006 00 16 00032 JSB BAS$$(B_POP 
04 00038 RET 
57 bytes, Routine Base: _BASSCODE + 0000 
END ' End of module BASSFREE 
ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


57 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


a } 


i 413 

ASSFREE b-Sep 4 AX-11 Bliss-32 V4.0-742 Pa 
PARES 1o-8e8- 138s 99:88:38 = FBAsate sae ieasekce asses - 
; Library Statistics 

; quecsess DPROLE Soecences Pages Processing 

3 File Total ioaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.1 

H COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASFREE/OBJ=OBJ$:BASFREE MSRC$:BASFREE/UPDATE=(ENHS$:BASS REE) 


; Size: 57 code + 0 data bytes 
Time: 00:08.2 


3; Elapsed Time: 00:17. 
3 Lines/CPU Min: 7514 
3 “ccemg Mok Mie 44683 
; 2" Used: 108 pages 
1 nee ation Complete 
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